www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Gu_shownews.asp

    <!--#include file="ku_top.asp"-->
<%
    ID=CheckStr(Request.QueryString("guxing")) 
    If isInt(ID)=False OR Not IsNumeric(ID) Then
    Response.Redirect "Gu_news.asp" 
    Response.End()
    End If
    set rs=server.createobject("adodb.recordset")
	sql="update ku_news set hits=hits+1 where ID="&ID&""
	rs.open sql,conn,1,3 
    set rs=server.createobject("adodb.recordset")
    rs.Open "Select * From ku_news where shenhe=1 and id="&id, conn,3,3

    if rs.bof and rs.eof then
    response.Redirect("Gu_News.asp")
    end if
    jifennews=rs("jifen")
    function title()
    ID=CheckStr(Request.QueryString("guxing"))     
    set rs=server.createobject("adodb.recordset")
    rs.Open "Select * From ku_news where shenhe=1 and id="&id, conn,3,3
    
%>
<%=rs("title")%>
<%end function%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
		<tr>
			<td height="454" width="740" valign="top">


			<div align="center">


			<table cellpadding="0" cellspacing="0" width="740" height="452">
				<tr>
					<td height="33" background="Ku_img/sj_001.jpg"><div id="dazi">
							<p align="left">
							<b><font color="#0066FF">&nbsp;</font><font color="#FFFFFF">新闻信息</font></b></div> </td>
				</tr>
				<tr>
					<td height="399" background="Ku_img/sj_002.jpg" valign="top">
					
					<div align="center">
						<table border="0" width="720" id="table1" cellpadding="0" cellspacing="0" height="397">
							<tr>
								<td height="40"><p align="center"><b><font size="4"><%=rs("title")%></font></b></td>
							</tr>
							<tr>
								<td height="18"><p align="center">新闻来源：<%=rs("laiyuan")%> | 编辑：<%=rs("zuozhe")%> | 浏览次数：<%=rs("hits")%> | 添加时间：<%=rs("dateandtime")%></td>

							</tr>
							<tr>
								<td valign="top"><hr></td>
							</tr>
							<tr>
								<td valign="top"><%=rs("content")%>	</td>
							</tr>

<!--【新闻信息】页面-新闻内容-中间广告位-->
	<tr>
		<td height="5"></td>
	</tr>
		<tr>
			<td><% Call Ku_AD(28) %></td>
		</tr>
<!--【新闻信息】页面-新闻内容-中间广告位-->
							<tr>
								<td valign="top"><hr></td>
							</tr>
						</table>
					</div>
					
					</td>
				</tr>
					

								<tr>
									<td height="16" background="Ku_img/sj_002.jpg" align=left><%call contextual_news()%></td>
								</tr>	
			
				<tr>
					<td height="4">
					<img border="0" src="Ku_img/sj_003.jpg" width="740" height="4"></td>
				</tr>
<!--【新闻信息】页面-新闻内容-下边广告位-->
	<tr>
		<td height="5"></td>
	</tr>
		<tr>
			<td><% Call Ku_AD(29) %></td>
		</tr>
<!--【新闻信息】页面-新闻内容-下边广告位-->
			</table>

			</div>

			</td>
			<td height="454" width="8">　</td>
			<td height="454" width="232" valign="top">
			<!--#include file="Ku_type/Index_login.asp"-->
			<!--#include file="Ku_type/news_kind.asp"-->

			</td>
		</tr>
	</table>
</div>
<%
sub contextual_news()
set RelationArt = conn.execute("select top 1 id,title from ku_news where id<"&id&" and shenhe=1 order by id desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>&nbsp; ★上篇新闻：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>&nbsp; ★上篇新闻：</font><a href=""Gu_shownews.asp?guxing=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>&nbsp;<BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 id,title from ku_news where id>"&id&" and shenhe=1 order by id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>&nbsp; ★下篇新闻：</font>已经没有了"   
else
Response.Write "<font color=red>&nbsp; ★下篇新闻：</font><a href=""Gu_shownews.asp?guxing=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
RelationArt.close
Set RelationArt=Nothing 
end sub
%><!--#include file="Ku_foot.asp"-->